#!/usr/bin/env perl

use utf8;
use strict;
use File::Basename;
use File::Spec::Functions;


my ($s_name, $d_name) = @ARGV;

if ( -d $d_name){
    $d_name = catfile($d_name, basename($s_name));
}

rename $s_name, $d_name;
